###Construo de Funes - Aula 9

getwd()
setwd("C:/Users/Edmundo/Documents/Meus Documentos/BIANCA/MESTRADO/Linguagem R")
getwd()

##QUE FRIO!

tempcelsius <- function(x)
{
parte1 = (x-32)
parte2 = 5/9
tempcelsius = parte1 * parte2
return(tempcelsius)
}

#Exemplo:
tempcelsius(100) #37,77 graus Celsius

##ANLISE EXPLORATRIA SIMULTNEA DE DUAS VARIVEIS

install.packages("plotrix")
help(multhist)#Mensagem de aviso: No documentation for 'multhist' in specified packages and libraries: you could try '??multhist".
??multhist #No explicita argumentos.
args("multhist")#Erro em args("multhist"): no foi possvel encontrar a funo "multhist"
#Isso  normal? Procurei ajuda na pgina do R na internet.

#X e Y tm q ser vetores! POR EXEMPLO:
x = rpois(200,2) #Tirado do tutorial 8.
y = runif(200,0,1) #Tbm tirado do tutorial 8.

exploratoria <- function(x,y)
{
x11
par(mfrow=c(3,2))
boxplot(x,y,main="Grfico de Caixas para as Variveis")
hist(x,col="blue",main="Histograma de x")
par(new=FALSE)
hist(y,col="red",main="Histograma de y")
qqnorm(x,col="blue",main="Grfico Quantil x Quantil",xlab="Quantil Terico",ylab="Quantil da Amostra")
par(new=TRUE)
qqnorm(y,col="red",main="Grfico Quantil x Quantil",xlab="Quantil Terico",ylab="Quantil da Amostra")
plot(y~x,main="Y em funo de X")
sumarios <- list(summary(x),summary(y),cor(x,y))
sumarios
par(mfrow=c(1,1))
return(sumarios)
}

exploratoria(x,y)

#No consegui usar a funo MULTHIST, o programa dava erro o tempo todo. Por isso acabei gerando dois grficos para histograma das duas variveis (5 grficos finais).

##NDICES DE DIVERSIDADE DE ESPCIES

#Shannon x Simpson
#Objeto ser uma matriz com abundncia das espcies nas linhas e amostras nas colunas.

diversidade <- function(x,na.rm=TRUE)
{


